A100-DATA-DIVISION ABA-SELECT ENTRY A100-DATA-DIVISION ABB-SELECT YENTRY A100-DATA-DIVISION ABB-SELECT CGOTO ABB-TEST-0001 A100-DATA-DIVISION ABB-CASE-0001 YENTRY A100-DATA-DIVISION ABB-CASE-0001 UPERFORM NAA-ADD-TO-TABLE A100-DATA-DIVISION ABB-CASE-0001 UGOTO ABB-END A100-DATA-DIVISION ABB-TEST-0001 ENTRY A100-DATA-DIVISION ABB-TEST-0001 UPERFORM B100-FIND-WORD A100-DATA-DIVISION ABB-TEST-0001 CPERFORM NAA-ADD-TO-TABLE A100-DATA-DIVISION ABB-TEST-0001 CSTOP STOP RUN A100-DATA-DIVISION ACA-SELECT YENTRY A100-DATA-DIVISION ACA-SELECT CGOTO ACA-TEST-0001 A100-DATA-DIVISION ACA-CASE-0001 YENTRY A100-DATA-DIVISION ADA-SELECT YENTRY A100-DATA-DIVISION ADA-SELECT CGOTO ADA-TEST-0001 A100-DATA-DIVISION ADA-CASE-0001 YENTRY A100-DATA-DIVISION ADA-CASE-0001 UPERFORM C100-PROCESS-DATA-ITEM A100-DATA-DIVISION ADA-CASE-0001 CPERFORM NAA-ADD-TO-TABLE A100-DATA-DIVISION ADA-TEST-0001 YENTRY A100-DATA-DIVISION ADA-END YENTRY A100-DATA-DIVISION ACA-TEST-0001 YENTRY A100-DATA-DIVISION ACA-END YENTRY A100-DATA-DIVISION ABB-TEST-0002 YENTRY A100-DATA-DIVISION ABB-END YENTRY A100-DATA-DIVISION ABB-END USTOP EXIT PROGRAM A100-DATA-DIVISION AAA-EPROC ENTRY B100-FIND-WORD BAA-START YENTRY B100-FIND-WORD BCA-UNTIL YENTRY B100-FIND-WORD BCA-UNTIL CGOTO BCA-END B100-FIND-WORD BCA-UNTIL UGOTO BCA-UNTIL B100-FIND-WORD BCA-END ENTRY B100-FIND-WORD BCA-END UGOTO BBA-END B100-FIND-WORD BBA-END ENTRY B100-FIND-WORD BAA-EPROC ENTRY C100-PROCESS-DATA-ITEM CAA-START YENTRY C100-PROCESS-DATA-ITEM CAA-START UPERFORM D100-EXTRACT-WORDS C100-PROCESS-DATA-ITEM CAA-START UPERFORM E100-NOT-WANTED C100-PROCESS-DATA-ITEM CBA-SELECT YENTRY C100-PROCESS-DATA-ITEM CBA-SELECT CGOTO CBA-TEST-0001 C100-PROCESS-DATA-ITEM CBA-CASE-0001 YENTRY C100-PROCESS-DATA-ITEM CBA-CASE-0001 UPERFORM H100-FIELD-NAME C100-PROCESS-DATA-ITEM CBA-CASE-0001 UPERFORM F100-PICTURE C100-PROCESS-DATA-ITEM CBA-CASE-0001 UPERFORM G100-OCCURS C100-PROCESS-DATA-ITEM CBA-CASE-0001 UPERFORM J100-REDEFINES C100-PROCESS-DATA-ITEM CBA-TEST-0001 YENTRY C100-PROCESS-DATA-ITEM CBA-END YENTRY C100-PROCESS-DATA-ITEM CAA-EPROC YENTRY D100-EXTRACT-WORDS DAA-START YENTRY D100-EXTRACT-WORDS DBA-UNTIL YENTRY D100-EXTRACT-WORDS DBA-UNTIL CGOTO DBA-END D100-EXTRACT-WORDS DBA-UNTIL UGOTO DBA-UNTIL D100-EXTRACT-WORDS DBA-END ENTRY D100-EXTRACT-WORDS DAA-EPROC ENTRY E100-NOT-WANTED EAA-START YENTRY E100-NOT-WANTED EAA-EPROC YENTRY F100-PICTURE FAA-START YENTRY F100-PICTURE FBA-SELECT YENTRY F100-PICTURE FBA-SELECT CGOTO FBA-END F100-PICTURE FBA-SELECT CGOTO FCA-TEST-0001 F100-PICTURE FCA-CASE-0001 YENTRY F100-PICTURE FDA-SELECT YENTRY F100-PICTURE FDA-SELECT CGOTO FDA-TEST-0001 F100-PICTURE FDA-SELECT UGOTO FDA-END F100-PICTURE FDA-TEST-0001 ENTRY F100-PICTURE FDA-TEST-0001 CGOTO FDA-TEST-0002 F100-PICTURE FDA-TEST-0001 UGOTO FDA-END F100-PICTURE FDA-TEST-0002 ENTRY F100-PICTURE FDA-TEST-0002 CGOTO FDA-TEST-0003 F100-PICTURE FDA-CASE-0003 YENTRY F100-PICTURE FDA-CASE-0003 UGOTO FDA-END F100-PICTURE FDA-TEST-0003 ENTRY F100-PICTURE FEA-SELECT YENTRY F100-PICTURE FEA-SELECT CGOTO FEA-TEST-0001 F100-PICTURE FEA-SELECT UPERFORM I100-COMP-FIELD-SIZE F100-PICTURE FEA-SELECT UGOTO FEA-END F100-PICTURE FEA-TEST-0001 ENTRY F100-PICTURE FEA-TEST-0001 CGOTO FEA-TEST-0002 F100-PICTURE FEA-TEST-0001 UGOTO FEA-END F100-PICTURE FEA-TEST-0002 ENTRY F100-PICTURE FEA-TEST-0003 YENTRY F100-PICTURE FEA-END YENTRY F100-PICTURE FDA-TEST-0004 YENTRY F100-PICTURE FDA-END YENTRY F100-PICTURE FCA-TEST-0001 YENTRY F100-PICTURE FCA-END YENTRY F100-PICTURE FBA-TEST-0002 YENTRY F100-PICTURE FBA-END YENTRY F100-PICTURE FAA-EPROC YENTRY